home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / 14d.dir / 00001.ls next >
Encoding:
Text File  |  1999-04-27  |  1.4 KB  |  56 lines
  1. on startMovie
  2.   global qtChan, gKnobSprite
  3.   sprite(14).visibility = 0
  4.   puppetSprite(46, 1)
  5.   qtChan = 11
  6.   sprite(qtChan).volume = 256
  7.   preLoad(qtChan - 1)
  8.   set the mouseDownScript to EMPTY
  9.   set the mouseUpScript to EMPTY
  10.   gKnobSprite = 26
  11.   setUpKnob()
  12. end
  13.  
  14. on idle
  15.   global gCursorReady
  16.   if gCursorReady = 1 then
  17.     cursor(200)
  18.     checkCursors()
  19.     set the locH of sprite 46 to the mouseH
  20.     set the locV of sprite 46 to the mouseV
  21.     updateStage()
  22.   end if
  23. end
  24.  
  25. on checkCursors
  26.   global gMagCursor
  27.   set the castNum of sprite 46 to the number of member "curs1"
  28.   repeat with i = 6 to 9
  29.     if rollOver(i) then
  30.       set the castNum of sprite 46 to the number of member "hotCursor"
  31.     end if
  32.   end repeat
  33.   if rollOver(10) then
  34.     set the castNum of sprite 46 to the number of member "curs1"
  35.   end if
  36.   if rollOver(16) then
  37.     set the castNum of sprite 46 to the number of member "hotCursor"
  38.   end if
  39.   if rollOver(25) then
  40.     set the castNum of sprite 46 to the number of member "hotCursor"
  41.   end if
  42.   repeat with i = 34 to 35
  43.     if rollOver(i) then
  44.       set the castNum of sprite 46 to the number of member "hotCursor"
  45.     end if
  46.   end repeat
  47.   if rollOver(37) then
  48.     set the castNum of sprite 46 to the number of member "hotCursor"
  49.   end if
  50.   repeat with i = 40 to 43
  51.     if rollOver(i) then
  52.       set the castNum of sprite 46 to the number of member "hotCursor"
  53.     end if
  54.   end repeat
  55. end
  56.